Ahoy 1985 December/Ahoy_Magazine_85-12_1985_Double_L.d64/planet setup

Commodore BASIC | 2022-10-26 | 12KB | 196 lines

1 rem *** planet setup ***
2 rem makes 'gypsy planets' for 'gypsy'
5 poke 53265,peek(53265)or 64
10 open 2,8,2,"gypsy planets,seq,write"
14 rem * planet names *
15 b$="":b=0:x$=chr$(13)
16 read a$
17 if a$="xxxxx" then print#2,a$:goto 50
18 gosub 45:print#2,a$:print a$
19 b=b+1:goto 16
21 data andalusia,iberia,hibernia,caledonia,gales,gaul,lusitania,atlantis
22 data misericordia,salamanca,catalonia,languedoc,navarre,scandia,ulster,zulu
23 data kurdistan,armenia,samaria,galilee,salem,plymouth,eritrea,ogaden
24 data hadramawt,shona,ndebele,uzbekskaya,buryat,khalkha,aimaq,pradesh
25 data pandit,kalash kafir,borush,sherpa,lepcha,gurung,nephilim,thai
26 data persia,bactria,sardis,laconia,etruria,dalmatia,venetia,dacia
27 data ibana,maori,wikmungkan,walbiri,jigalong,kukukuku,goilala,arapesh
28 data yap,fang,biafra,hausa,malinke,dogon,druzia,sheba
29 data kabab,homr,mycenae,knossos,latium,bilbao,cantabria,romany
30 data bohemia,silesia,estonia,lithuania,flanders,bretagne,orange,quechua
31 data olmeca,teotihuacan,tikal,titicaca,macchu picchu,ge,guarani,xingu
32 data bahia,amahuaca,aymara,ainu,yanomamo,otavalo,guajiro,kogi
33 data costenoga,cherokee,dakota,hopi,shoshone,qapaw,waco,kickapoo
34 data wampanoag,caddo,shawnee,creek,apache,pueblo,navaho,arapaho
35 data acadia,manchuria,tibet,shogun,hakka,taipei,hunan,hmong
36 data rocannon,arrakis,medea,terminus,urth,rama,treason,worthing
37 data trondheim,nauvoo,deseret,erewhon,riverworld,trout,inwit,dandelion
38 data wozniak,jobs,bushnell,tramiel,pournelle,turing,asky,univac
39 data niven,bishop,o'neill,varley,martin,kessel,kilroy,vonnegut
40 data yolen,norton,brummet,bova,asprin,turtledove,rucker,liavek
41 data swanwick,shiner,van name,wylde,fowler,shepard,meacham,schiff
42 data ferman,moynihan,iacocca,minas gerais,moab,edom,canaan,sumer
43 data babylon,biloxi,mishawaka,scholz,mayhar,carthage,keizer,poiuyt,xxxxx
44 rem convert strings
45 d$="":for i=1 to len(a$):c$=mid$(a$,i,1)
46 d$=d$+chr$(asc(c$)or 192):next:a$=d$:return
49 rem ** world types
50 for i=0 to 5:read a$:print#2,a$:print i,a$:next
51 data a space station,a large moon,a small rocky planet
52 data uninhabited,populated by humans,populated by aliens
59 rem ** gypsy names
60 for k=0 to 32:read a$:gosub 45:print#2,a$:print k,a$:next
65 data rana,mara,mishak,doc,granny,vish,fingers,hopper,loop,dram,hack,pock
66 data will,alec,booker,clam,fizz,igor,jacques,king,noose,opal,quink,rabbit
67 data shaker,toff,ully,yackity,zipper,kagan,thumb,blade,gregorio
98 rem ** uninhabited worlds
99 for i=0 to 9:read a$,b$,c$,d$,e$,f$,g$:print#2,a$x$b$x$c$x$d$x$e$x$f$x$g$
100 print i,a$:next
101 data cold bare rock without water or wind
102 data fell into a crevice,got lost and froze to death
103 data set off an avalanche and was crushed
104 data a pure vein of platinum,a cliff carved with an alien language
105 data the original voyager spacecraft
106 data a thick impenetrable layer of vines and ferns
107 data was devoured by a man-eating plant,sank into a hidden bog
108 data died of violent allergies to pollen
109 data a vine that bears high-calory fruit,sap that hardens into jewels
110 data an insect whose bite cures cancer
111 data a mile-thick layer of dust
112 data sank into the dust and disappeared,choked to death in the wind
113 data was eaten by a huge dustworm,a patch of euphoria-causing dust
114 data a new species of oxygen-making microbe,diamonds excreted by dustworms
116 data a surface entirely encrusted with       dazzling crystals
117 data fell and was cut to ribbons,was crusted over with crystals
118 data went mad from the patterns of light
119 data crystals that hold megabytes of memory
120 data living crystals that paint with pure    light,huge emeralds
121 data the highly radioactive husk of a world  that died in nuclear war
122 data died of radiation poisoning,was killed by a mutated virus
123 data triggered an ancient landmine,a sculpture of ineffable beauty
124 data the history of a lost civilization,a mutated species of sentient rat
126 data the dusty ruins of a species that left  to voyage among the stars
127 data ate a fruit that caused fatal dysentery,was killed by a crazed robot
128 data fell into a disintegrator unit,a matter-destroying disintegrator
129 data the secret of instant matter transfer,a gallery of priceless paintings
131 data a vast ocean without a speck  of land
132 data was pulled into the sea by a huge squid,drank the water and died
133 data was covered by a hideous algae and driedup in moments
134 data swimming oysters with giant pearls,ivory tusks from dead narwhals
135 data a species of grain that grows in salt   water
136 data a surface ravaged by violent storms and smothering blizzards
137 data was carried off by the wind,was buried in a snowdrift
138 data was ground to powder in a sandstorm,the log of the lost ship enterprise
139 data a tree with wood tougher than steel,a plant that synthesizes hydrogen
141 data a young planet with constant volcanoes  and earthquakes
142 data was caught in lava,fell into a geyser,choked to death on flying ash
143 data a river of pure platinum,the oldest meteorite ever found
144 data a pool of self-replicating proteins--thebeginnings of life!
146 data a glass-smooth surface covered with the wrecks of old starships
147 data sank into the surface and vanished,was sucked into a tiny black hole
148 data grew smaller and smaller--and finally   disappeared
149 data small singularities that allow time     travel
150 data gold from an ancient cargo ship,a radiation-suppression field
198 rem ** worlds populated by humans
199 for i=0 to 9:read a$,b$,c$,d$,e$,f$,g$:print#2,a$x$b$x$c$x$d$x$e$x$f$x$g$
200 print i,a$:next
201 data a tribe of primitive hunters and fruit- gatherers
202 data wandered off and was eaten,offended the chief and was killed
203 data got fleas that carried a deadly disease
204 data ivory,pelts,anthropological data
206 data a farming village whose people scratch  the soil with stone tools
207 data got romantically involved and was killedby a furious father
208 data got in a quarrel and was mashed with a  stone ax,caught a pox and died
209 data a domesticated flying lizard,primitive but lovely pots,opals
211 data a bronze-using civilization that builds huge stone monuments
212 data was sacrificed to a rain god,was crushed under a block of stone
213 data insulted a priest and was poisoned,magnificent stone sculptures
214 data a soft and beautiful metal alloy,gilt daggers of cunning artifice
216 data a coastal village of sea-faring traders
217 data was carried off into slavery,was thrown overboard
218 data was caught 'borrowing' a jewel and was  tortured to death
219 data a snake whose venom is subtle and strong,a species of succulent fish
220 data beautifully decorated harpoons and fish knives
221 data a people who dwell in a vast network of caverns and burrows
222 data was buried in the collapse of a tunnel,ate a poisonous mushroom
223 data got lost forever in a labyrinth,an exquisitely flavorful mold
224 data a brightly luminous fish,the largest emeralds ever found
226 data a huge city housed in a single mile-highbuilding
227 data fell (or was pushed) from a balcony,argued with a cop and was shot
228 data was run over by a corridor-taxi,high-powered roller skates
229 data an aphrodisiac that works,a pivotal new book on psychology
231 data a people who live in the tops of huge   deciduous trees
232 data stumbled on a high branch,was eaten by a carnivorous sloth
233 data was kidnapped and vivisected,the seeds of a species of sentient tree
234 data a moss that synthesizes helium--and floats
235 data an algae that serves as a fast and      powerful computer
236 data a whole town living in a huge basket    slung under a vast balloon
237 data lit a match and was immediately pushed off,was carried off by a roc
238 data was eaten by one of the huge carnivores on the surface
239 data a plant that turns sunlight into usable heat,a domesticated bat
240 data cleverly engineered wings that allow    humans to fly
241 data a family of dragon breeders who wager onthe vicious wyrmfights
242 data caught a dragon's eye and became lunch,was killed over a wyrmfight bet
243 data was forced to marry a local and stay on this world
244 data dragons' eggs,hallucinogenic dragons'   dung
245 data a small dragon parasite that causes lostlimbs to regenerate
246 data a tribe of horsemen who tend vast herds of woolly mammoths
247 data was trampled in a stampede,annoyed a native with a blowgun
248 data stood too near a flatulent mammoth and  suffocated
249 data mammoth ivory,cheese made from mammoth milk
250 data "a breed of small, tough, fast, and      almost sentient horses"
298 rem ** worlds populated by aliens
299 for i=0 to 9:read a$,b$,c$,d$,e$,f$,g$:print#2,a$x$b$x$c$x$d$x$e$x$f$x$g$
300 print i,a$:next
301 data a race of sentient squids that tend     gardens under the sea
302 data broke an airhose and drowned,was hypnotized and lured into open jaws
303 data took a sample of coral that turned out  to be sacred
304 data exquisite bansai coral,pet seaweed that does tricks,seabottom salmon
305 data creatures of pure mind that dwell by    pools and streams
306 data died trying to separate body from mind,became depressed and catatonic
307 data went mad from dredged-up memories of    past crimes
308 data proof of unprovable mathematical        propositions
309 data the secret of folded space,a complete   map of the universe
310 data monkeyish tree-dwellers that live only  to sing in the treetops
311 data didn't wear earplugs and was enraptured by song--forgetting to breathe
312 data tried to sing a duet and was pelted to  death with fruit
313 data ate a tree slug that regenerated 1000   times internally
314 data recordings of songs,an adventurous youngsinger of surpassing talent
315 data an 'unsong bird' that generates a field of silence wherever it goes
316 data on a planet of dinosaurs--a race of wisebirds that never land
317 data was stepped on by a brontosaurus,fell into a bog and became a fossil
318 data tried to steal an egg and was picked up and dropped
319 data midget hadrodons that make great pets,perfume-emitting dragonflies
320 data xenologically fascinating films of mid- air reproduction
321 data creatures that live by creating illusionin the minds of their prey
322 data tried to cross an imaginary bridge,was caught cheating at poker
323 data did magic tricks the aliens couldn't do and was taken prisoner
324 data permanent illusions tied to small jewels,a fast-growing legume
325 data a ferret that is invariably drawn to    high intelligence
326 data a race of shapechangers who have        forgotten their 'real' shape
327 data was shot by a gypsy who thought it was  an impostor,got a fatal illness
328 data went hunting and bagged the wrong prey,a net-spinning tree
329 data shape-changing protoplasm,ozone-emitting airborne slime
330 data clumsy grass-eating behemoths infested  by sentient bloodsuckers
331 data was taken over by a sucker,was trampled by an angry herd
332 data said something slanderous about the     suckers,sweet-smelling dung
333 data an intelligence-enhancing distillation  of sucker hormones
334 data a sucker-eating bat
335 data trees that grow clones of any creature  as their fruit
336 data was devoured and cloned 500 times to    form a village
337 data climbed a hungry tree,chopped down the chief's daughter for   firewood
338 data a seedling of a tree that could clone   the dead
339 data a fibrous plant with steel-like threads,a fire-breathing mouse
340 data a race of cats that keep dogs and mice  as slaves--while rats rebel
341 data was lobotomized and trained to fetch forthe king of cats
342 data tried to pet a dog-soldier,was carried off in the night by a rat pack
343 data a dog that can repeat hours of conversa-tion word for word
344 data mice trained as hairdressers,plans for cats to take over the universe
345 data robots that evolved from an ancient starship service station
346 data was caught with a data-erasing magnetic device
347 data was mistakenly lubricated by a repairbot,beat the wrong robot at chess
348 data organically-grown positronic brains,a metal-preserving fungus
349 data flea-sized self-replicating repairbots
990 close 2
1000 end